約 2,105,512 件
https://w.atwiki.jp/thecockrockshockpop/pages/528.html
member ex-GUNS N ROSES Giant Robot ～ 日本上陸 G 作戦 Giant Robot ～ 日本上陸 G 作戦 1994年11月3日 1. Doomride ( ダイスは投げられた ) 2. Welcome To Bucketheadland ( バケットヘッドのテーマ ) 3. I Come In Peace ( 平和よりの使者 ) 4. Buckethead s Toy Store ( トイズ・ストアーにようこそ ) 5. Want Some Slaw ? ( コールスローはいかが ) / 6. Warweb ( 魔王現る ) 7. Aquabot ( ケダモノ戦士アクアボット ) 8. Binge And Grab ( お気に召すまま大騒ぎ ) [ instrumental ver.] 9. Pure Imagination ( 自由へのイマジネーション ) / 10. Buckethead s Chamber Of Horrors ( 戦慄の部屋 ) 11. Onions Unleased ( タマネギ男からの挨拶 ) / 12. Chicken ( ブーブーチキン ) 13. I Love My Parents ( 素敵なパパとママ ) / 14. Buckethead s T.V. Show ( バケッドヘッドのTVショー ) 15. Robot Transmission ( 以心伝心電光石火 ) / 16. Pirate s Life For Me ( カリブの海賊 ) 17. Post Office Buddy ( 郵便局でひとめぼれ ) / 18. Star Wars ( スターウォーズのテーマ ) 19. Last Train To Bucketheadland ( バケットヘッドランドへの最終列車 )
https://w.atwiki.jp/ce00582/pages/1455.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim finx(15 To 65, 1 To 50) As Single Dim fout(15 To 65, 1 To 50) As Single Dim fnewt(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /kirakira/gdata/女子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 finx(age, car) = a3 Loop Close #4 Open "c /kirakira/gdata/女子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 fout(age, car) = a3 Loop Close #6 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = finx(age, car) a2 = fout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next fnewt(byear) = z1 Debug.Print byear Next Open "c /kirakira/gdata/女子通算新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, fnewt(byear) Next Close #4 End Sub
https://w.atwiki.jp/alethea/
楽しめそう このごろ突然、 パソコンに開眼しました はじめてのブログというものを スタートさせました(*^^)v ドキドキしています メッセージ待ってます
https://w.atwiki.jp/ce00582/pages/1616.html
data152 再加入率 theta(age)再加入率 (1)出所 財政検証 （２）データ データ （３）プロ プロ 補助 ＪＡＶＡ リンク名 (４)作業記録 ９月５日 ページ作成 ９月６日 補助プログラム ９月１０日 ページ修正 １１年４月８日 ＪＡＶＡ
https://w.atwiki.jp/ce00582/pages/1459.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(15 To 65, 1 To 50) As Single Dim mout(15 To 65, 1 To 50) As Single Dim avgmtime(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/男子脱退率.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /kirakira/gdata/男子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #4 Open "c /kirakira/gdata/男子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #6 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next z2 = 0 For car = 25 To 49 z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next avgmtime(byear) = z2 / z1 Debug.Print byear, z2 / z1 Next Open "c /kirakira/gdata/男子平均加入年数2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, avgmtime(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1449.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(15 To 65, 1 To 50) As Single Dim mout(15 To 65, 1 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/男子脱退率.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /kirakira/gdata/男子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #4 Open "c /kirakira/gdata/男子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #6 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear Next Open "c /kirakira/gdata/男子新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1573.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim mtime(1900 To 2100) As Single Dim ftime(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /eli/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /eli/gdata/男子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /eli/gdata/男子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 Open "c /eli/data/報酬裁定.txt " For Input As #15 Do Until EOF(15) Input #15, a1, a2, a3 byear = a1 mtime(byear) = a2 ftime(byear) = a3 Loop Close #15 For byear = 1940 To 1950 mtime(byear) = 60 ftime(byear) = 60 Next For byear = 1970 To 1989 mtime(byear) = 65 ftime(byear) = 65 Next For byear = 1949 To 1989 ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) endtime = mtime(byear) For age = ageage + 1 To endtime z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next age = endtime z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear, mnew(byear) Next Open "c /eli/gdata/男子新規裁定者2.txt " For Output As #4 For byear = 1949 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/wiki5_hks/pages/67.html
DATA INPUT SUB INFN INFN PK ERROR PRED DES TOLとは THETA OMEGA 相関の取り扱い SIGMA EST COV TABLE $TABLE SIM SUPER $SUPER コントロールファイルの書き方（ルール）
https://w.atwiki.jp/ce00582/pages/58.html
Private Sub Command1_Click() Dim theta(1 To 2, 15 To 65) As Single Dim m2(-3 To 99, 16 To 65) As Single Dim f2(-3 To 99, 16 To 65) As Single Dim de(1 To 2, 16 To 65) As Single Dim mis(16 To 65, 1 To 50) As Single Dim mos(16 To 65, 1 To 50) As Single Dim mrate(-3 To 99, 16 To 65) As Single Dim frate(-3 To 99, 16 To 65) As Single Dim b(-1 To 10, 0 To 99) As Single Dim c(-1 To 10, 0 To 99) As Single Dim m(-5 To 99, 0 To 99) As Single Dim f(-5 To 99, 0 To 99) As Single Dim newm(-3 To 99) As Single Dim newf(-3 To 99) As Single Dim alpha(1 To 2, 15 To 64) As Single Dim beta(1 To 2, 15 To 64) As Single Dim phi(1 To 2, 15 To 64) As Single Dim age As Single Dim car As Single Dim year As Single Dim c1 As Single Dim c2 As Single Dim c3 As Single Dim zero As Single Dim syear As Single Dim rate(-3 To 99) As Single n = -1 s = 0 Open "c /simple/data/死亡（男性）.txt" For Input As #1 Do Until EOF(1) Input #1, x b(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #1 n = -1 s = 0 Open "c /simple/data/死亡（女性）.txt" For Input As #11 Do Until EOF(11) Input #11, x c(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #11 Open "c /simple/gdata/厚生年金加入率.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 year = a1 age = a2 mrate(year, age) = a3 frate(year, age) = a4 Loop Close #2 Open "c /simple/data/脱退率.txt" For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4, a5, a6, a7, a8, a9 age = a1 alpha(1, age) = a3 beta(1, age) = a4 phi(1, age) = a5 alpha(2, age) = a7 beta(2, age) = a8 phi(2, age) = a9 Loop Close #3 Open "c /simple/data/再加入率.txt" For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 theta(1, age) = a2 theta(2, age) = a3 Loop Close #4 Open "c /simple/gdata/将来推計人口.txt" For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 year = a1 age = a2 m(year, age) = a3 f(year, age) = a4 Loop Close #5 Open "c /simple/gdata/厚生年金被保険者.txt" For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 year = a1 age = a2 m2(year, age) = a3 f2(year, age) = a4 Loop Close #6 For syear = 49 To 99 zero = 1 mis(16, 1) = f2(syear - 49, 16) For age = 17 To 64 year = syear + age - 65 c1 = 1 - alpha(2, age) - beta(2, age) - phi(2, age) c2 = c1 * f2(year - 1, age - 1) mis(age, 1) = (1 - theta(2, age)) * (f2(year, age) - c2) If mis(age, 1) 0 Then mis(age, 1) = 0 If zero 0 Then mis(age, 1) = 0 c3 = 0 For car = 1 To 50 c3 = c3 + mos(age - 1, car) Next c5 = 0 If c3 = 0 Then c5 = 1 If c3 = 0 Then c3 = 1 c4 = (f2(year, age) - c2 - mis(age, 1)) / c3 If c5 = 1 Then c4 = 0 For car = 2 To 50 mis(age, car) = c1 * mis(age - 1, car - 1) + c4 * mos(age - 1, car - 1) Next For car = 1 To 50 mos(age, car) = alpha(2, age) * mis(age - 1, car) + (1 - c4 - beta(2, age)) * mos(age - 1, car) Next z1 = 0 For car = 1 To 50 z1 = z1 + mis(age, car) + mos(age, car) Next zero = f(year, age) - z1 Next z2 = 0 For car = 1 To 50 z2 = z2 + mis(64, car) + mos(64, car) Next z3 = 0 For car = 1 To 24 z3 = z3 + mis(64, car) + mos(64, car) Next rate(syear) = z3 / z2 Next For year = -3 To 49 rate(year) = rate(49) Next For year = -3 To 99 newm(year) = rate(year) * f(year, 65) Next Open "c /simple/gdata/女子通算年金新規裁定者.txt " For Output As #8 For year = -3 To 99 Write #8, year, newm(year) Next Close #8 End Sub
https://w.atwiki.jp/ce00582/pages/66.html
Private Sub Command1_Click() Dim theta(1 To 2, 15 To 65) As Single Dim m2(-3 To 99, 16 To 65) As Single Dim f2(-3 To 99, 16 To 65) As Single Dim de(1 To 2, 16 To 65) As Single Dim mis(16 To 65, 1 To 50) As Single Dim mos(16 To 65, 1 To 50) As Single Dim mrate(-3 To 99, 16 To 65) As Single Dim frate(-3 To 99, 16 To 65) As Single Dim b(-1 To 10, 0 To 99) As Single Dim c(-1 To 10, 0 To 99) As Single Dim m(-5 To 99, 0 To 99) As Single Dim f(-5 To 99, 0 To 99) As Single Dim newm(-3 To 99, 60 To 65) As Single Dim newf(-3 To 99, 60 To 65) As Single Dim alpha(1 To 2, 15 To 64) As Single Dim beta(1 To 2, 15 To 64) As Single Dim phi(1 To 2, 15 To 64) As Single Dim age As Single Dim car As Single Dim year As Single Dim c1 As Single Dim c2 As Single Dim c3 As Single Dim zero As Single Dim syear As Single Dim rate(-3 To 99) As Single n = -1 s = 0 Open "c /simple/data/死亡（男性）.txt" For Input As #1 Do Until EOF(1) Input #1, x b(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #1 n = -1 s = 0 Open "c /simple/data/死亡（女性）.txt" For Input As #11 Do Until EOF(11) Input #11, x c(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #11 Open "c /simple/gdata/厚生年金加入率.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 year = a1 age = a2 mrate(year, age) = a3 frate(year, age) = a4 Loop Close #2 Open "c /simple/data/脱退率.txt" For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4, a5, a6, a7, a8, a9 age = a1 alpha(1, age) = a3 beta(1, age) = a4 phi(1, age) = a5 alpha(2, age) = a7 beta(2, age) = a8 phi(2, age) = a9 Loop Close #3 Open "c /simple/data/再加入率.txt" For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 theta(1, age) = a2 theta(2, age) = a3 Loop Close #4 Open "c /simple/gdata/将来推計人口.txt" For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 year = a1 age = a2 m(year, age) = a3 f(year, age) = a4 Loop Close #5 Open "c /simple/gdata/厚生年金被保険者.txt" For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 year = a1 age = a2 m2(year, age) = a3 f2(year, age) = a4 Loop Close #6 For syear = 49 To 99 zero = 1 mis(16, 1) = m2(syear - 49, 16) For age = 17 To 64 year = syear + age - 65 c1 = 1 - alpha(1, age) - beta(1, age) - phi(1, age) c2 = c1 * m2(year - 1, age - 1) mis(age, 1) = (1 - theta(1, age)) * (m2(year, age) - c2) If mis(age, 1) 0 Then mis(age, 1) = 0 If zero 0 Then mis(age, 1) = 0 c3 = 0 For car = 1 To 50 c3 = c3 + mos(age - 1, car) Next c5 = 0 If c3 = 0 Then c5 = 1 If c3 = 0 Then c3 = 1 c4 = (m2(year, age) - c2 - mis(age, 1)) / c3 If c5 = 1 Then c4 = 0 If c4 0 Then c4 = 0 For car = 2 To 50 mis(age, car) = c1 * mis(age - 1, car - 1) + c4 * mos(age - 1, car - 1) Next For car = 1 To 50 mos(age, car) = alpha(1, age) * mis(age - 1, car) + (1 - c4 - beta(1, age)) * mos(age - 1, car) Next z1 = 0 For car = 1 To 50 z1 = z1 + mis(age, car) + mos(age, car) Next zero = m(year, age) - z1 Next z2 = 0 For car = 1 To 24 z2 = z2 + mis(64, car) + mos(64, car) Next z3 = 0 For car = 1 To 24 z3 = z3 + car * mis(64, car) + car * mos(64, car) Next rate(syear) = z3 / z2 Next Dim mtime(0 To 134) As Single For year = 84 To 134 mtime(year) = rate(year - 100 + 65) Next For year = 0 To 84 mtime(year) = mtime(84) Next Open "c /simple/gdata/男子通算年金加入年数.txt " For Output As #8 For year = 0 To 134 Write #8, year, mtime(year) Next Close #8 For year = 0 To 100 Debug.Print year, mtime(year) Next End Sub